home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
SONG2.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
2KB
|
66 lines
' SONG2.BAS
' This program displays the lyrics of the folk song "Clementine."
DECLARE SUB Chorus () ' declare Chorus subprogram before use
CLS
PRINT "------------------------- Clementine -------------------------"
PRINT
PRINT "In a cavern, in a canyon," ' first verse
PRINT "Excavating for a mine,"
PRINT "Lived a miner, forty-niner,"
PRINT "And his daughter, Clementine."
Chorus ' call Chorus subprogram
PRINT "Light she was and like a fairy," ' second verse
PRINT "And her shoes were number nine;"
PRINT "Herring boxes without topses,"
PRINT "Sandals were for Clementine."
Chorus ' call Chorus subprogram
INPUT "Press Enter for more...", dummy$ ' pause screen
PRINT
PRINT "Drove she ducklings to the water," ' third verse
PRINT "Ev'ry morning just at nine;"
PRINT "Hit her foot against a splinter,"
PRINT "Fell into the foaming brine."
Chorus ' call Chorus subprogram
PRINT "Ruby lips above the water," ' forth verse
PRINT "Blowing bubbles soft and fine;"
PRINT "But alas, he was no swimmer,"
PRINT "So he lost his Clementine."
Chorus ' call Chorus subprogram
INPUT "Press Enter for more...", dummy$ ' pause screen
PRINT
PRINT "Then the miner, forty-niner," ' fifth verse
PRINT "Soon began to peak and pine;"
PRINT "Thought he oughter join his daughter,"
PRINT "Now he's with his Clementine."
Chorus ' call Chorus subprogram
END
SUB Chorus
' The Chorus subprogram prints the chorus of the song "Clementine."
PRINT
PRINT "Oh my darling, oh my darling," ' chorus
PRINT "Oh my darling, Clementine,"
PRINT "You are lost and gone forever,"
PRINT "Dreadful sorry, Clementine."
PRINT
END SUB